67 PRINTCHR$(8)+CHR$(142)
90 IFFL=0THENFL=1:LOAD"-SPIVER.DIR",8,1
100 POKE53280,0:POKE53281,0:POKE788,52
110 Z=0
114 DIM D$(1999)
115 GOSUB5200
116 PRINT"[147][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
117 PRINT"[145][152]              SPIVER V4.0+              "
118 PRINT"[145][152]       BY MANUEL CAVERO  /1992-94       "
119 PRINT"[145][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
120 PRINT"[152] EIN SPIELE-VERZEICHNISS FUER JEDERMANN"
121 PRINT" DER ENDLICH MAL ORDNUNG IN SEINE SPIE-"
122 PRINT" LESAMMLUNG BRINGEN WILL. EINFACH DISKS"
123 PRINT"    KENNZEICHNEN UND DATEN EINGEBEN.   "
124 PRINTTAB(14)"VIEL SPASS !"
125 PRINT"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
126 PRINT"[152]  PRESENTED BY:  STARLIGHT VISION 1994  "
127 PRINT"[145][152]       COPYRIGHT MAGIC-DISK 1994        "
128 PRINT"[145][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
129 POKE198,0:WAIT198,1
130 PRINT"[147][152]             NAME:[155]"D$(Z)
140 PRINT"[152]   PROGRAMMLAENGE:[155]"D$(Z+1)
150 PRINT"[152]ART DES PROGRAMMS:[155]"D$(Z+2)
160 PRINT"[152] DISKETTENKENNUNG:[155]"D$(Z+3)
170 PRINT"[152]            SEITE:[155]"D$(Z+4)
175 PRINT"[152]           PROGRAMM NR.:[155]"Z/5
176 OS=399:IF D$(0)="" THEN OS=400
177 PRINTTAB(6)"[152]SPEICHER:[155]"OS-(LP/5)"[152]PROGRAMMFELDER"
180 PRINT"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
190 PRINT"[145][152] F1: NAECHSTES PRG  F2:  VORHERIGES PRG "
200 PRINT"[145] F3: DATEI LADEN    F4: DATEI SPEICHERN "
210 PRINT"[145] F5: SUCHEN         F7:  EINGABE MACHEN "
220 PRINT"[145] F6/ F8: ERSTES/   LETZTES PRG ANZEIGEN "
225 PRINT"[145] A: PROGR. 'X' ANZEIGEN   @: SPIVER-DOS "
227 PRINT"[145] P: PROGRAMM LOESCHEN     $:  DIRECTORY "
228 PRINT"[145] C: SPEICHER LOESCHEN     E:  EXIT      "
230 PRINT"[145][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
235 PRINTTAB(6)"[152]COPYRIGHT BY MAGIC-DISK 1994"
240 GETQ$:IFQ$="[133]"ANDZ<1995THENZ=Z+5:GOTO130
250 IFQ$="[137]"ANDZ<>0THENZ=Z-5:GOTO130
252 IFQ$="$"THENSYS49152:PRINT""TAB(54)"TASTE BITTE.":POKE198,0:WAIT198,1:GOTO130
260 IFQ$="[134]"THEN500
270 IFQ$="[138]"THEN600
280 IFQ$="[135]"THEN1000
290 IFQ$="[140]"THEN700
291 IFQ$<>"C"THEN300
292 PRINT"[147]WOLLEN SIE WIRKLICH ALLE DATEN LOESCHEN?"
293 GETQ$:IFQ$=""THEN293
294 IFQ$<>"J"THEN130
295 CLR:DIMD$(1999):GOSUB5200:GOTO130
300 IFQ$="[136]"THEN2000
301 IFQ$="P"THEN6000
302 IFQ$="[139]"THENZ=0:GOTO130
303 IFQ$<>"A"THEN306
304 INPUT"[147][155]BITTE PRG-NR EINGEBEN ![152]";Q:IFQ=>0ANDQ<400THENZ=Q*5
305 GOTO130
306 IFQ$="@"THEN3000
310 IFQ$<>"E"THEN240
320 PRINT"[147][152]SIND SIE SICHER DASS SIE DAS PROGRAMM"
322 PRINTTAB(7)"VERLASSEN MOECHTEN (J/N) ?"
325 POKE198,0:WAIT198,1:GETQ$
330 IFQ$<>"J"THEN130
340 SYS64738
500 PRINT"[147]WOLLEN SIE WIRKLICH NEUE DATEN LADEN ?"
501 PRINT"  ALTE DATEN WERDEN GELOESCHT! (J/N)"
502 POKE198,0:WAIT198,1:GETQ$:IFQ$<>"J"THEN130
503 CLR:DIMD$(1999):GOSUB5200
504 GOSUB5000:OPEN1,8,15,"R:XYX=SPIVER."+FL$:INPUT#1,A:CLOSE1:IFA<>0THEN540
505 OPEN1,8,15,"R:SPIVER."+FL$+"=XYX":CLOSE1
506 PRINT"[147]      - PLEASE WAIT, LOADING ... -"
510 OPEN2,8,2,"SPIVER."+FL$+",S,R":Z=0
520 INPUT#2,D$(Z):IF ST=64 THEN LP=Z-4:Z=0:CLOSE2:GOTO130
530 Z=Z+1:GOTO520
540 PRINT"[147][150]    - FILE NOT FOUND: CHECK DISK ! -"
550 PRINTTAB(48)"PRESS A KEY TO CONTINUE.":POKE198,0:WAIT198,1:GOTO130
600 GOSUB5000:IFLEN(FL$)>9ORLEN(FL$)<0THEN600
603 PRINT"[147]      - PLEASE WAIT, SAVING .... -"
605 OPEN2,8,2,"@:SPIVER."+FL$+",S,W":Z=-1
610 Z=Z+1:IFD$(Z)=""THEN:Z=0:GOTO710
620 PRINT#2,D$(Z):GOTO610
700 Z=LP:GOTO130
710 INPUT#2,I(1),I$,I(2),I(3):CLOSE2
720 PRINT"[151]STATUS:[152]"I(1)","I$","I(2)","I(3):PRINT"[151]TASTE BITTE":POKE198,0:WAIT198,1
730 GOTO130
1000 PRINT"[147]WAS WOLLEN SIE SUCHEN ?"
1010 PRINT"1:[155] PROGRAMME MIT [152]X[155] BLOECKEN SUCHEN"
1020 PRINT"2:[155] BESTIMMTE SPIELEARTEN SUCHEN"
1025 PRINT"Z.B. ACTION-GAMES,ADVENTURES"
1030 PRINT"3:[155] DISKETTEN ANSCHAUEN"
1040 PRINT"4:[155] PROGRAMME SUCHEN"
1042 PRINT"5:[155] FREIEN DISKSPEICHER SUCHEN"
1045 PRINT"6:[155] ZUM HAUPTMENUE"
1050 PRINT"BITTE WAEHLEN !"
1060 GETQ$:IFQ$=""THEN1060
1062 IFQ$="6"THEN130
1065 IFVAL(Q$)<1ORVAL(Q$)>5THEN1060
1070 Q=VAL(Q$):ON Q GOTO 1100,1300,1500,1700,1900
1100 PRINT"[147][152]WIEVIELE BLOECKE SOLL DAS PROGRAMM"
1110 INPUT"[155]MAXIMAL[152] HABEN";MX
1120 INPUT"WIEVIEL BLOECKE [155]MINIMAL[152]";MN
1125 AZ=Z:Z=1
1130 IFVAL(D$(Z))<MNORVAL(D$(Z))>MXTHEN1140
1135 PRINT"[152]NAME: [155]"D$(Z-1)
1136 PRINT"[152]DISK-KENNUNG:[155] "D$(Z+2)" [152]/SEITE [155]"D$(Z+3)
1137 PRINT"[152]BLOECKE:[155]"D$(Z)"[152]- PRG-NR.: [155]"(Z-1)/5
1138 PRINT"[151]TASTE BITTE.[196][196][196][196] _ = ABBRUCH [196][196][196][196][196][196][196][196][155]":POKE198,0:WAIT198,1
1139 GETQ$:IFQ$="_"THENZ=AZ:GOTO1000
1140 IFD$(Z)<>""ANDZ<>1996THENZ=Z+5:GOTO1130
1150 Z=AZ:PRINT"             DATEIENDE ....":POKE198,0:WAIT198,1:GOTO1000
1300 PRINT"[147] WELCHE SPIELEARTEN WOLLEN SIE SUCHEN ?"
1310 PRINT"[151]   1: JUMP'N'RUN"
1315 PRINT"    [152]2: ACTION"
1320 PRINT"     [155]3: SIMULATION"
1325 PRINT"      [152]4: ADVENTURE"
1330 PRINT"       [151]5: GESCHICKLICHKEIT"
1335 PRINT"        [152]6: SCHROTT !":AZ=Z
1340 GETQ$:IFQ$=""THEN1340
1345 IFVAL(Q$)<1ORVAL(Q$)>6THEN1340
1350 Q=VAL(Q$):Z=2
1355 IFD$(Z)<>SA$(Q)THEN1370
1360 PRINT"[155]NAME:"D$(Z-2):PRINT"[152]DISK-KENNUNG:[155]"D$(Z+1)" [152]/SEITE [155]"D$(Z+2)
1361 PRINT"[152]PRG-NR.:[155]"(Z-2)/5
1362 PRINT"[151]TASTE BITTE.[195][195][195][195] _ = ABBRUCH [195][195][195][195][195][195][195][195]"
1365 POKE198,0:WAIT198,1
1368 GETQ$:IFQ$="_"THENZ=AZ:GOTO1000
1370 IFD$(Z)<>""ANDZ<>1997THENZ=Z+5:GOTO1355
1380 PRINT"DATEIENDE ...":POKE198,0:WAIT198,1:Z=AZ:GOTO1000
1500 PRINT"[147][155]BITTE GEBEN SIE DIE DISKETTENKENNUNG"
1510 INPUT"EIN !";DK$
1520 AZ=Z:Z=3
1530 IFDK$=D$(Z)THEN1560
1540 IFZ<>1998ANDD$(Z)<>""THENZ=Z+5:GOTO1530
1550 PRINT"DATEIENDE ...":POKE198,0:WAIT198,1:Z=AZ:GOTO1000
1560 PRINT"[155]NAME:";D$(Z-3)" [152]SEITE [155]"D$(Z+1):PRINT"[152]PRG-NR.:[155]"(Z-3)/5
1562 PRINT"[151]TASTE BITTE.[195][195][195][195] _ = ABBRUCH [195][195][195][195][195][195][195][195]"
1565 POKE198,0:WAIT198,1:GETQ$:IFQ$<>"_"THENZ=Z+5:GOTO1530
1568 Z=AZ:GOTO1000
1700 PRINT"[147]BITTE GEBEN SIE DEN NAMEN EIN ..."
1710 INPUT"[155]NAME -->";N$
1720 AZ=Z:Z=0
1730 IFN$=D$(Z)THEN1760
1740 IFD$(Z)<>""ANDZ<>1995THENZ=Z+5:GOTO1730
1750 PRINT"PROGRAMM NICHT VORHANDEN ...":POKE198,0:WAIT198,1:Z=AZ:GOTO1000
1760 PRINT"[151][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1761 PRINT"[152]DISKETTENKENNUNG: [155]"D$(Z+3):PRINT"[152]SEITE [155]"D$(Z+4):PRINT"[152]PRG-NR.:[155] "Z/5
1762 PRINT"[151]TASTE BITTE.[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1765 POKE198,0:WAIT198,1
1770 GOTO130
1900 PRINT"[147][152]WELCHE DISKETTE WOLLEN SIE UNTERSUCHEN ?"
1910 INPUT"[155]DISKETTENKENNUNG";DK$
1920 AZ=Z:Z=3:S1=664:S2=664
1925 IFD$(Z)<>DK$THEN1930
1927 IFD$(Z+1)="1"THENS1=S1-VAL(D$(Z-2))
1928 IFD$(Z+1)="2"THENS2=S2-VAL(D$(Z-2))
1930 IFZ<>1998ANDD$(Z)<>""THENZ=Z+5:GOTO1925
1932 IF S1<664 OR S2<664 THEN 1935
1933 PRINT"DIESE DISKETTE IST NOCH NICHT RE-"
1934 PRINT"GISTRIERT WORDEN ...":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":GOTO1950
1935 PRINT"AUF DIESER DISKETTE SIND MAXIMAL"
1940 PRINT"AUF SEITE 1:"S1:PRINT"AUF SEITE 2:"S2:PRINT"BLOECKE FREI !"
1950 PRINT"[151]TASTE BITTE.":POKE198,0:WAIT198,1:Z=AZ:GOTO1000
2000 IF LP =< Z THEN LP=Z
2005 INPUT"[147][155]NAME:[152]";D$(Z)
2010 INPUT"[155]LAENGE IN BLOECKEN:[152]";D$(Z+1)
2020 PRINT"[155]ART DES SPIELES:[152]"
2030 FORI=1TO6:PRINTI;SA$(I):NEXT
2040 PRINT"[155]BITTE WAEHLEN !"
2050 GETQ$:IFQ$=""THEN2050
2060 IFVAL(Q$)<1ORVAL(Q$)>6THEN2050
2070 D$(Z+2)=SA$(VAL(Q$))
2080 INPUT"DISKETTENKENNUNG[152]";D$(Z+3)
2090 INPUT"[155]SEITE[152]";D$(Z+4)
2100 GOTO130
3000 PRINT"[147][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
3010 PRINT"[152][145]   SPIVER-DOS V1.0+  BY MANUEL CAVERO [160] "
3020 PRINT"[145]                                        "
3030 PRINT"[145] $: DIRECTORY                           "
3040 PRINT"[145] S: PRG LOESCHEN                        "
3050 PRINT"[145] F: DISK FORMATIEREN                    "
3060 PRINT"[145] N: NAME AENDERN                        "
3065 PRINT"[145] I: DISK INITIALISIEREN                 "
3070 PRINT"[145]                                        "
3080 PRINT"[145] Z: ZURUECK ZUM HAUPTMENUE              "
3090 PRINT"[145][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3100 GETQ$:IFQ$=""THEN3100
3110 IFQ$="$"THENPRINT"[152]":SYS49152:PRINTTAB(54)"TASTE BITTE.":POKE198,0:WAIT198,1:GOTO3000
3120 IFQ$<>"S"THEN3200
3130 GOSUB5100:OPEN1,8,15,"S:"+FL$
3140 GOTO3340
3150 WAIT198,1:GOTO3000
3200 IFQ$="I"THENOPEN1,8,15,"I":PRINT"[147][158]PROCESS INIT ...":GOTO3340
3205 IFQ$<>"F"THEN3300
3210 INPUT"[147][152]DISK-NAME:";Q$:INPUT"ID   --[157][157][157][157]";I$:OPEN1,8,15,"N:"+Q$+","+I$
3220 GOTO3340
3300 IFQ$<>"N"THEN3360
3310 INPUT"[147][152]ALTER NAME:";AN$
3320 INPUT"[155]NEUER NAME:";NN$
3330 OPEN1,8,15,"R:"+NN$+"="+AN$
3340 INPUT#1,I(1),I$,I(2),I(3):CLOSE1
3345 PRINT"[151]STATUS:[152]"I(1)","I$","I(2)","I(3):PRINT"[151]TASTE BITTE":POKE198,0:WAIT198,1
3350 GOTO3000
3360 IFQ$<>"Z"THEN3100
3370 GOTO 130
5000 PRINT"[147][155]* = SYSTEMFILE !"
5010 INPUT"[152]FILENAME (MAX 9 ZEICHEN)";FL$:IFFL$="*"THENFL$="SYS"
5020 RETURN
5100 INPUT"[147][152]FILENAME:";FL$:RETURN
5200 SA$(1)="JUMP'N'RUN"
5202 SA$(2)="ACTION"
5203 SA$(3)="SIMULATION"
5204 SA$(4)="ADVENTURE"
5205 SA$(5)="GESCHICKLICHKEIT":SA$(6)="SCHROTT !":RETURN
6000 AZ=Z
6002 PRINT"           [159]M[155]OVING DATAS .[155].[159].           "
6003 PRINT"           [159][163][155][163][163][163][163][163][163][163][163][163][163][163][163][163][155][163][159][163]            "
6005 FOR Z2=1 TO 5
6010 D$(Z)=D$(Z+5)
6020 Z=Z+1
6025 NEXT Z2
6030 IF Z<LP+1 THEN 6005
6035 IF LP>0 THEN LP=LP-5
6040 Z=AZ:GOTO130
6100 PRINT"[155]NAME:"D$(Z-2)
6110 PRINT"[152]DISK-KENNUNG: "D$(Z+1)" /SEITE "D$(Z+2)
6120 PRINT"PRG-NR.:"(Z-2)/5:RETURN